home *** CD-ROM | disk | FTP | other *** search
- OpenWorkspace "Const_trev.ws5"
- Set wnd = getWindow(1)
- Set Camera = wnd.camera
- Set theTime = camera.time
- Set Direction = camera.Direction
- Set Location = camera.Location
- '---- end standard prologue'
- wnd.MDIWindow.State = SW_MAXIMIZE
-
- Set obj_l = Location.CentralObject
- ' Location.SetLonlat 0.00000000000000E+000 , 1.57079632679485E+000
- ' Location.Position = 2000
- set pl =PlayerWindow
- 'pl.top=450
- 'pl.left=600
- pl.top=Screen.height-150
- pl.left=Screen.width-200
- set txt = CreateTextWindow
- txt.LoadFile "const_trev1.html"
- 'txt.Locate 0,315,225,240
- txt.Locate 0,Screen.height-255,225,240
- txt.Show
- settimemark
- theTime.Forward
- WaitFrames 47 : theTime.Stop
- waitfortime 23000
- txt.LoadFile "const_trev2.html"
- Location.LatStepUnits = 0
- Location.StepLattitude = 8.72664625997139E-002
- Location.BackwardLat
- WaitFrames 17
- Location.StopLattitude
- Location.SetLonlat 0.00000000000000E+000 , 0.00000000000000E+000
- Location.Position = 2002 : UpdateWindows
- pause 5000
- waitfortime 20000
- txt.Locate 0,Screen.height-230,225,215
- txt.LoadFile "const_trev3.html"
- Direction.HorzStep = 8.72664625997139E-002
- Direction.BackwardRa
- WaitFrames 17
- Direction.RaStop
- ' pause 2000
- theTime.Forward
- WaitFrames 36 : theTime.Stop
- ' pause 2000
- waitfortime 18000
- txt.Locate 0,Screen.height-165,225,150
- txt.LoadFile "const_trev4.html"
- Direction.Ra = 3.14159265358970E+000 : UpdateWindows
- Location.BackwardLat
- WaitFrames 17
- Location.StopLattitude
- Location.SetLonlat 0.00000000000000E+000 , -1.57079632679485E+000
- Location.Position = 2001 : UpdateWindows
- ' pause 1000
- waitfortime 10000
- txt.Locate 0,Screen.height-180,225,165
- txt.LoadFile "const_trev5.html"
- theTime.Forward
- WaitFrames 40 : theTime.Stop
- waitfortime 12000
- txt.Close
- ' end recording
-
-